home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / midifl12.lha / midifile.new / mfstrings.c < prev    next >
C/C++ Source or Header  |  1995-08-27  |  909b  |  60 lines
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include "midifile.h"
  4.  
  5. FILE *F;
  6.  
  7. /* mygetc : returns <int> with input variables:
  8.  * void:
  9.  */
  10. int mygetc (void)
  11. {
  12.   return (getc (F));
  13. }
  14.  
  15. /* ------------------------------------------------------------------------ */
  16.  
  17. /* mytext : returns <int> with input variables:
  18.  * type:
  19.  * leng:
  20.  * msg:
  21.  */
  22. int mytext (
  23.   int type,
  24.   int leng,
  25.   char *msg)
  26. {
  27.   char *p;
  28.   char *ep = msg + leng;
  29.  
  30.   for (p = msg; p < ep; p++)
  31. putchar (isprint (*p) ? *p : '?');
  32.   putchar ('\n');
  33. }
  34.  
  35. /* ------------------------------------------------------------------------ */
  36.  
  37. /* main : returns <int> with input variables:
  38.  * argc:
  39.  * argv:
  40.  */
  41. int main (
  42.   int argc,
  43.   char **argv)
  44. {
  45.   if (argc > 1)
  46. F = fopen (argv[1], "r");
  47.   else
  48. F = stdin;
  49.  
  50.   Mf_getc = mygetc;
  51.   Mf_text = mytext;
  52.  
  53.   midifile ();
  54.  
  55.   exit (0);
  56. }
  57.  
  58. /* ------------------------------------------------------------------------ */
  59.  
  60.